bcdtabdefs.mESA 24-0CT-77 21:15:31 Page 1 

-- BcdTabOef S.Mesa Edited by Johnsson on August 3, 1977 2:49 PM 

DIRECTORY 

BcdDefs: FROM "bcddefs", 
BcdTableDefs: FROM "bcdtabledef s" , 
StringDefs: FROM "stringdef s" ; 

BcdTabOef s: DEFINITIONS » 
BEGIN 

TableLimit: CARDINAL = BcdTableDefs .TableLimit; 

-- Hash Table 

HVLength: PRIVATE INTEGER = 71; 
HVIndex: TYPE * INTEGER [0. .HVLength) ; 

HTRecord: TYPE = RECORD [ 
link: HTIndex. 
offset: CARDINAL]; 

HTNull: HTIndex = LAST[HTIndex]; 
HTIndex: TYPE = INTEGER [0. .TableLimit) ; 

-- Semantic Table 

STRecord: TYPE = RECORD [ 
filename, assigned: BOOLEAN, 
hti: HTIndex, 

imported, exported: BOOLEAN, 
link: STIndex, 
impi : BcdDefs . IMPIndex , 
impgfi: CARDINAL, 
body: SELECT type: * FROM 
unknown => NULL, 
local => [ 

info: BcdTableDefs. Tablelndex, --BcdTreeDef s .Treelndex, 
context: CXIndex], 
external => [ 
map: STMap, 

pointer: SELECT ptype: ♦ FROM 
instance => [sti: STIndex], 
file => [fti: BcdDefs . FTIndex] . 
ENDCASE], 
ENDCASE]; 

STNull: STIndex = LAST[STIndex] ; 

STIndex: TYPE = POINTER [0 . .TableLimit) TO STRecord; 

STMap: TYPE = RECORD [ 
SELECT type: * FROM 
unknown «> NULL, 

config => [cti: BcdDefs .CTIndex] , 
module => [mti: BcdDefs .MTIndex] , 
interface => [expi: BcdDefs . EXPIndex] , 
ENDCASE]; 

-- Context Table 

CXRecord: TYPE = RECORD [ 
link: STIndex]; 

CXNull: CXI-dex = L AST[CXIndex] ; 

CXIndex: TYPE = POINTPR [0 . . Tab! eL imi t ) TO CXRecord; 

-- Hash Manipulation 

FindString. F i ndEqu i val en tStr i ng : PROCEDURE [Str ingDef s . SubS tr i ng] RETURNS [found: BOOLfAN, hti: HTIn 
**dex] ; 

CnterString: PROCrDURf [S tr i ngDef s . SubS tr i ng] RETURNS [MTTndex]; 
SubStringforHash: PROCrDURf [S tr i ngDef s . SubS Lri ng , HTIndex]; 
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— Administrative Procedures 

BcdTablnit, BcdTabErase, BcdTabReset: PROCEDURE; 

END. 



